 <%
                        mesnum=mesnumero()
                        mes = Right("00" & mesnum, 2)
                        'response.Write(mes)
                        IF rolSession="0010000000" THEN  
                        'para la cantidad de actividades programadas en el mes
                        colmes=ProcesoColMes(mes)
                        aper_id=Session("auth_granted_poa_apertura")
                        ACT=ActividadesMesCurso(colmes, aper_id)
                        If VarType(ACT) = 8 then
                            filas = -1
                           Else
                            filas = UBound(ACT, 2)
                          End If
                          if filas <> -1 then
                            cont=0
                            For i = 0 To filas
                                'response.Write("--")
                                'response.Write(ACT(3,i))
                                act_id=ACT(3,i)
                                count=count+1
                           ' response.Write()
                                'para el porcentaje de ejecucion financiera
                                '----------------------------------------------------
                                'mes=MesNumero()
                                'aper_id=Session("auth_granted_poa_apertura")
                                ACTMON=ActividadMontoEjecutado(mes, act_id)
                                 If VarType(ACTMON) = 8 then
                                   filas2 = -1
                                   Else
                                    filas2 = UBound(ACTMON, 2)
                                  End If
                                  if filas2 <> -1 then
                                    cont2=0
                                   For j = 0 To filas2
                                        'response.Write("**")
                                        'response.Write(ACTMON(0,j))
                                        count2=count2+1
                                   Next
                            
                                   else
                                    'cadena=""
                                  end if
                                '--------------------------------------------------
                            Next
                            
                           else
                            'cadena=""
                          end if
                        

                    %>

                    <!--<div style="background-color:#6fb3e0; width:80px; float:right; color:black; margin-left:2px;" class="btn" tooltip="tooltip" title="Promedio de ejecucion fisica del mes en curso"> <a style="text-decoration:none; color:white; font-size:16px;"> 30% <span class="glyphicon glyphicon-signal" style="font-size:16px;"> </span> </a></div>
                    <div style="background-color:#87b87f; width:80px; float:right; color:black; margin-left:2px;" class="btn" tooltip="tooltip" title="Promedio de ejecucion financiera del mes en curso"> <a style="text-decoration:none; color:white; font-size:16px;"> 45% <span class="glyphicon glyphicon-signal" style="font-size:16px;"> </span> </a></div>
                     <div style="background-color:#ffb752; width:80px; float:right; color:black; margin-left:2px;" class="btn" tooltip="tooltip" title="Actividades programadas para el mes en curso"> <a style="text-decoration:none; color:white; font-size:16px;"><span class="glyphicon glyphicon-bell" style="font-size:16px;"> </span> <span class="badge"><%response.Write(count) %></span> </a></div>-->
                    <%END IF %>
                   
                    <%
                        
                    %>
